inherited FPagamentoProgramado: TFPagamentoProgramado
  Left = 282
  Top = 186
  Height = 496
  Caption = 'Pagamento Programado'
  Constraints.MinHeight = 496
  Constraints.MinWidth = 823
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    Height = 462
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        Top = 374
      end
      inherited dbgPesquisaPadra: TDBGrid
        Height = 317
        Columns = <
          item
            Expanded = False
            FieldName = 'CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORNECEDOR_DESC'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DIAVENCIMENTO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR'
            Title.Alignment = taRightJustify
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HISTORICO1'
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HISTORICO2'
            Width = 200
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        Height = 431
        object Label1: TLabel [0]
          Left = 2
          Top = 38
          Width = 40
          Height = 16
          Caption = 'Codigo'
        end
        object Label3: TLabel [1]
          Left = 543
          Top = 316
          Width = 140
          Height = 16
          Caption = 'Dia do(s) Vencimento(s)'
          FocusControl = DBEDiaVencimento
        end
        object Label5: TLabel [2]
          Left = 438
          Top = 36
          Width = 94
          Height = 16
          Caption = 'Tipo Documento'
        end
        object Label6: TLabel [3]
          Left = 59
          Top = 87
          Width = 65
          Height = 16
          Caption = 'Fornecedor'
        end
        object Label7: TLabel [4]
          Left = 438
          Top = 84
          Width = 49
          Height = 16
          Caption = 'Portador'
        end
        object Label8: TLabel [5]
          Left = 59
          Top = 138
          Width = 141
          Height = 16
          Caption = 'Classifica'#231#227'o Financeira'
        end
        object Label10: TLabel [6]
          Left = 543
          Top = 287
          Width = 30
          Height = 16
          Caption = 'Valor'
          FocusControl = DBEValor
        end
        object DBText1: TDBText [7]
          Left = 2
          Top = 58
          Width = 80
          Height = 21
          DataField = 'CODIGO'
          DataSource = DSPagamentoProgramado
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel [8]
          Left = 438
          Top = 195
          Width = 51
          Height = 16
          Caption = 'Hist'#243'rico'
        end
        object Label13: TLabel [9]
          Left = 438
          Top = 138
          Width = 94
          Height = 16
          Caption = 'Centro de Custo'
        end
        object Label17: TLabel [10]
          Left = 59
          Top = 195
          Width = 85
          Height = 16
          Caption = 'Conta Cont'#225'bil'
        end
        object DBText3: TDBText [11]
          Left = 161
          Top = 195
          Width = 50
          Height = 16
          AutoSize = True
          DataField = 'PLANOCONT_CODIGOCONTABIL'
        end
        object Label18: TLabel [12]
          Left = 59
          Top = 37
          Width = 103
          Height = 16
          Caption = 'Fonte de Recurso'
        end
        inherited panel2: TPanel
          TabOrder = 12
          inherited SBAtualiza: TSpeedButton
            Left = 238
          end
          inherited BtnFechar: TBitBtn
            Left = 710
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          Top = 346
          Height = 84
          TabOrder = 13
        end
        object DBEDiaVencimento: TDBEdit
          Left = 684
          Top = 316
          Width = 48
          Height = 22
          Ctl3D = False
          DataField = 'DIAVENCIMENTO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 11
          OnKeyPress = DBEDiaVencimentoKeyPress
        end
        object DBEValor: TDBEdit
          Left = 684
          Top = 287
          Width = 93
          Height = 22
          Ctl3D = False
          DataField = 'VALOR'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 10
        end
        object DBLCBFornecedor: TDBLookupComboBox
          Left = 59
          Top = 103
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'FORNECEDOR'
          DataSource = dsCadastro
          KeyField = 'FORN_CODIGO'
          ListField = 'FORN_RAZAO'
          ListSource = DSFornecedor
          ParentCtl3D = False
          TabOrder = 2
          OnKeyDown = DBLCBFornecedorKeyDown
        end
        object DBLCBTipoDocumento: TDBLookupComboBox
          Left = 438
          Top = 55
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'TIPODOCUMENTO'
          DataSource = dsCadastro
          KeyField = 'TIPO_DOC_CODIGO'
          ListField = 'TIPO_DOC_DESCRICAO'
          ListSource = DSTipoDocumento
          ParentCtl3D = False
          TabOrder = 1
          OnKeyDown = DBLCBFornecedorKeyDown
        end
        object DBLCBPortador: TDBLookupComboBox
          Left = 438
          Top = 103
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'PORTADOR'
          DataSource = dsCadastro
          KeyField = 'PORT_CODIGO'
          ListField = 'PORT_DESCRICAO'
          ListSource = DSPortador
          ParentCtl3D = False
          TabOrder = 3
          OnEnter = DBLCBPortadorEnter
          OnKeyDown = DBLCBFornecedorKeyDown
        end
        object DBLCBPlano: TDBLookupComboBox
          Left = 59
          Top = 155
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'PLANO'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSPlano
          ParentCtl3D = False
          TabOrder = 4
          OnExit = DBLCBPlanoExit
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DBEHistorico: TDBEdit
          Left = 438
          Top = 212
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'HISTORICO1'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 7
        end
        object DBLCBCentroCusto: TDBLookupComboBox
          Left = 438
          Top = 155
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'CENTROCUSTO'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSCentro
          ParentCtl3D = False
          TabOrder = 5
          OnEnter = DBLCBCentroCustoEnter
          OnKeyDown = DBLCBCentroCustoKeyDown
        end
        object DBEHistorico2: TDBEdit
          Left = 438
          Top = 234
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'HISTORICO2'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 8
        end
        object DBLCBContaContabil: TDBLookupComboBox
          Left = 59
          Top = 212
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'CONTACONTABIL'
          DataSource = dsCadastro
          KeyField = 'PLANOCONT_CODIGO'
          ListField = 'PLANOCONT_DESCRICAO'
          ListSource = DSPlanoContabil
          ParentCtl3D = False
          TabOrder = 6
          OnClick = DBLCBContaContabilClick
          OnKeyDown = DBLCBContaContabilKeyDown
          OnKeyUp = DBLCBContaContabilKeyUp
        end
        object DBLFonteRecurso: TDBLookupComboBox
          Left = 59
          Top = 55
          Width = 339
          Height = 22
          Ctl3D = False
          DataField = 'FONTERECURSO'
          DataSource = dsCadastro
          KeyField = 'FONT_CODIGO'
          ListField = 'FONT_DESCRICAO'
          ListSource = dsFonteRecurso
          ParentCtl3D = False
          TabOrder = 0
        end
        object GBPeriodoValidade: TGroupBox
          Left = 10
          Top = 259
          Width = 527
          Height = 77
          Caption = '  Per'#237'odo de Validade  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 9
          object Label11: TLabel
            Left = 174
            Top = 36
            Width = 7
            Height = 16
            Caption = #224
          end
          object Label2: TLabel
            Left = 5
            Top = 36
            Width = 16
            Height = 16
            Caption = 'De'
          end
          object Label12: TLabel
            Left = 378
            Top = 15
            Width = 65
            Height = 16
            Caption = 'M'#234's Inativo'
          end
          object SpeedButton5: TSpeedButton
            Tag = 1
            Left = 325
            Top = 36
            Width = 26
            Height = 26
            Hint = 'C'#225'lculo M'#234's/ ano Final'
            Caption = '!'
            OnClick = SpeedButton5Click
          end
          object DTPeriodoValidadeIni: TDateTimePicker
            Left = 28
            Top = 36
            Width = 136
            Height = 21
            CalAlignment = dtaLeft
            Date = 40208.4079415162
            Format = 'MMMM yyyy'
            Time = 40208.4079415162
            DateFormat = dfShort
            DateMode = dmUpDown
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
            OnEnter = DTPeriodoValidadeIniEnter
          end
          object DTPeriodoValidadeFin: TDateTimePicker
            Left = 191
            Top = 36
            Width = 135
            Height = 21
            CalAlignment = dtaLeft
            Date = 40513.4079415162
            Format = 'MMMM yyyy'
            Time = 40513.4079415162
            DateFormat = dfShort
            DateMode = dmUpDown
            Kind = dtkDate
            ParseInput = False
            TabOrder = 1
            OnEnter = DTPeriodoValidadeIniEnter
          end
          object DTDataInativo: TDateTimePicker
            Left = 378
            Top = 36
            Width = 135
            Height = 21
            CalAlignment = dtaLeft
            Date = 36750.4079415162
            Format = 'MMMM yyyy'
            Time = 36750.4079415162
            DateFormat = dfShort
            DateMode = dmUpDown
            Kind = dtkDate
            ParseInput = False
            TabOrder = 2
            OnEnter = DTPeriodoValidadeIniEnter
            OnKeyDown = DTDataInativoKeyDown
          end
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from Pagamento_Programado')
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    BeforePost = cdsCadastroBeforePost
    object cdsCadastroCODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
    end
    object cdsCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
    end
    object cdsCadastroFORNECEDOR: TIntegerField
      FieldName = 'FORNECEDOR'
    end
    object cdsCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
    end
    object cdsCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
    end
    object cdsCadastroDIAVENCIMENTO: TStringField
      Alignment = taCenter
      DisplayLabel = 'Dia Vencto'
      FieldName = 'DIAVENCIMENTO'
      Size = 2
    end
    object cdsCadastroVALOR: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'VALOR'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
    end
    object cdsCadastroHISTORICO1: TStringField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'HISTORICO1'
      Size = 52
    end
    object cdsCadastroHISTORICO2: TStringField
      DisplayLabel = 'Hist'#243'rico 2'
      FieldName = 'HISTORICO2'
      Size = 52
    end
    object cdsCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
    end
    object cdsCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
    end
    object cdsCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
    end
    object cdsCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
    end
    object cdsCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroFORNECEDOR_DESC: TStringField
      DisplayLabel = 'Fornecedor'
      FieldName = 'FORNECEDOR_DESC'
      Size = 60
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
  end
  inherited OpenDialog1: TOpenDialog
    Left = 24
    Top = 112
  end
  object DSPagamentoProgramado: TDataSource
    Left = 420
    Top = 464
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 272
    Top = 408
  end
  object DSTipoDocumento: TDataSource
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 528
    Top = 408
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 600
    Top = 384
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlanoSaida
    Left = 336
    Top = 416
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 152
    Top = 424
  end
  object QPlanoContabil: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      'Order By PlanoCont_CodigoContabil')
    Left = 374
    Top = 426
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DSPlanoContabil: TDataSource
    DataSet = QPlanoContabil
    Left = 446
    Top = 418
  end
  object dsFonteRecurso: TDataSource
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 310
    Top = 413
  end
end
